home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Game Pak / rerun-gamepak / lava pit (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  10KB  |  164 lines
  1. 1 gosub5000
  2. 2 print"[147]":poke53281,0:poke53280,0
  3. 3 fori=1024to1232:pokei,220:next:fori=1233to1284:reada:pokei,a:next
  4. 4 fori=1285to1457:pokei,220:next:fori=1458to1509:reada:pokei,a:next
  5. 5 fori=1510to1637:pokei,220:next:fori=1638to1689:reada:pokei,a:next
  6. 6 fori=1690to1871:pokei,220:next:fori=1872to2023:reada:pokei,a:next
  7. 7 fori=55496 to 55533:pokei,8:next
  8. 8 fori=55536to55575:pokei,9:next
  9. 9 fori=55696to55755:pokei,8:next
  10. 10 fori=55756to55789:pokei,9:next
  11. 11 fori=55896to55936:pokei,8:next
  12. 12 fori=55936to55976:pokei,9:next
  13. 13 fori=56136to56176:pokei,8:next
  14. 14 fori=56176to56215:pokei,9:next
  15. 15 fori=56216to56227:pokei,2:next
  16. 16 fori=56228to56243:pokei,9:next
  17. 17 fori=56244to56267:pokei,2:next
  18. 18 fori=56268to56283:pokei,9:next
  19. 19 fori=56284to56295:pokei,2:next
  20. 26 v=53248:s=54272:forde=1to7step2:pokev+de,120:next:pokev,139:pokev+4,208
  21. 27 forde=38144to38147:pokede,0:next
  22. 28 poke38148,0:poke38150,245:poke38149,3:poke38151,10
  23. 29 pokev+21,10:pokev+16,0:poke53275,255
  24. 30 pokev+40,1:pokev+42,8
  25. 40 poke38168,0:poke38169,1:poke38170,2:poke38171,3:poke38172,4:poke38173,5
  26. 80 poke38167,20
  27. 100 forsc=stos+23:pokesc,0:nextsc:pokes+24,15
  28. 110 pokes+5,0:pokes,0:pokes+1,17:pokes+6,101
  29. 120 pokes+12,0:pokes+7,0
  30. 130 pokes+19,0:pokes+14,0
  31. 140 poke1944,208:poke1945,210:poke1946,212:poke1947,214:poke1948,216
  32. 150 sys38238
  33. 200 wn=peek(38167)
  34. 210 ss=2*(19-(abs(wn-20)))
  35. 250 forde=0toss:next
  36. 280 ifwn=0orwn=40then500
  37. 300 goto150
  38. 500 ifwn<>0then510
  39. 501 print"[147][144]the albino vadrak is the victor!":poke198,0:poke53272,21
  40. 503 pokev+33,15:pokev+32,15:pokes+24,0:forl=0to999:next:print"play again?"
  41. 505 geta$:ifa$=""then505
  42. 507 if a$="y"thenrun
  43. 508 pokev+21,0:end
  44. 510 print"[147]the pigmented vadrak is victorious!":poke198,0:poke53272,21
  45. 513 pokev+33,9:pokev+32,9:pokes+24,0:forl=0to999:next:print"play again?"
  46. 515 geta$:ifa$=""then515
  47. 517 if a$="y"thenrun
  48. 518 pokev+21,0:end
  49. 5000 poke53281,7:poke53280,7:print"[147]              [175][175][175][175][175][175][175][175][175][175][175][175]"
  50. 5001 print"             [206][164][164][164][164][164][164][164][164][164][164][164][164][205]"
  51. 5002 print"             [214]* lava pit *[146][214]"
  52. 5003 print"             [205][175][175][175][175][175][175][175][175][175][175][175][175][206]"
  53. 5005 print"                   by[157][157][157][157][157][157][157][157]scott peterson"
  54. 5010 fori=13824to14592:reada:pokei,a:next:rem * read custom char & sprites
  55. 5014 poke53272,29:poke53281,2:poke53280,2:print"[147][158]"
  56. 5015 fori=0to20:poke1629+i,234+i:poke55901+i,7:nexti
  57. 5020 fori=38238to38889:reada:pokei,a:next:rem * read machine language program
  58. 5030 return
  59. 10000 data   239,010,000,000,000,000,000,000,239,215,005,001,000,000,000,000,223
  60. 10001 data   118,171,222,019,002,000,000,164,250,171,237,214,123,138,003,221,190
  61. 10002 data   247,210,170,217,205,141,135,115,220,066,154,097,036,074,161,090,149
  62. 10003 data   069,010,066,017,129,074,164,178,081,138,033,136,037,165,084,051,132
  63. 10004 data   072,131,048,128,085,170,146,101,016,136,000,000,042,213,032,128,000
  64. 10005 data   000,000,000,042,144,000,000,000,000,000,000,133,082,222,106,224,096
  65. 10006 data   160,128,181,194,069,133,066,129,129,129,171,214,050,042,022,028,020
  66. 10007 data   008,187,037,010,027,018,002,001,001,000,000,000,000,024,255,255,255
  67. 10008 data   000,000,000,000,060,255,255,255,000,000,000,000,126,255,255,255,000
  68. 10009 data   000,000,126,129,255,255,255,000,000,060,066,129,255,255,255,000,060
  69. 10010 data   066,129,129,255,255,255,036,066,129,129,066,255,255,255,009,128,036
  70. 10011 data   129,082,255,255,255,000,000,033,004,145,255,255,255,000,000,000,008
  71. 10012 data   084,255,255,255,000,000,000,000,000,255,255,255,255,255,255,255,255
  72. 10013 data   255,255,255,000,000,000,000,000,000,000,000,246,009,055,006,027,010
  73. 10014 data   009,025,187,164,216,040,224,016,144,136,059,149,135,233,198,099,197
  74. 10015 data   166,138,052,216,081,162,067,197,199,146,101,219,024,128,227,102,231
  75. 10016 data   170,117,206,193,048,239,086,165,234,119,163,195,002,041,237,082,016
  76. 10017 data   205,119,224,160,099,069,198,074,165,204,050,007,194,099,166,002,003
  77. 10018 data   002,122,166,180,072,048,000,000,000,000,000,000,000,255,056,124,186
  78. 10019 data   214,108,124,068,056,016,016,000,214,000,024,004,056,126,049,051,062
  79. 10020 data   112,096,224,000,252,038,034,060,044,038,098,227,063,126,068,112,248
  80. 10021 data   195,223,254,126,049,051,062,112,096,224,000,008,024,052,036,126,102
  81. 10022 data   198,192,252,038,034,060,044,038,098,227,063,126,068,112,248,195,223
  82. 10023 data   254,000,000,000,000,000,000,000,000,004,008,252,147,048,048,055,030
  83. 10024 data   062,127,119,231,231,238,254,124,000,000,000,000,000,000,000,000,031
  84. 10025 data   102,006,012,012,216,216,096,062,127,119,231,231,238,254,124,103,163
  85. 10026 data   035,099,099,231,239,123,126,254,194,096,030,067,127,126,004,008,252
  86. 10027 data   147,048,048,055,030,000,000,000,000,000,048,056,024,000,000,000,000
  87. 10028 data   000,048,056,024,000,000,000,000,000,048,056,024,000,000,000,000,000
  88. 10029 data   000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
  89. 10030 data   000,000,248,000,000,070,000,000,033,000,000,016,128,000,127,224,000
  90. 10031 data   017,224,000,054,064,000,121,192,000,018,096,000,020,144,004,024,184
  91. 10032 data   012,031,023,252,002,248,230,006,097,255,028,002,024,228,012,004,199
  92. 10033 data   240,000,024,000,000,032,000,000,096,000,000,000,000,000,000,000,000
  93. 10034 data   000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
  94. 10035 data   000,000,000,000,000,000,000,012,000,120,124,001,128,228,006,062,126
  95. 10036 data   004,125,159,014,067,064,023,063,240,036,012,048,068,014,080,228,002
  96. 10037 data   144,014,003,016,000,003,136,000,000,248,000,000,000,031,000,000,098
  97. 10038 data   000,000,132,000,001,008,000,007,254,000,007,136,000,002,108,000,003
  98. 10039 data   158,000,006,072,032,009,040,048,029,024,063,232,248,103,031,064,255
  99. 10040 data   134,056,024,064,039,032,048,035,000,015,208,000,000,008,000,000,012
  100. 10041 data   000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
  101. 10042 data   000,000,000,000,000,000,000,000,000,000,000,000,000,000,048,000,000
  102. 10043 data   062,030,000,039,001,128,126,124,096,249,190,048,002,194,124,015,252
  103. 10044 data   230,012,048,034,010,112,051,009,064,024,008,192,024,017,192,000,031
  104. 10045 data   000,000,157,000
  105. 20000 data   173,014,149,208,003,032,153,151,173,015,149,208,003,032,195,151,173
  106. 20001 data   031,208,141,012,149,162,000,142,010,149,142,021,149,142,022,149,169
  107. 20002 data   002,141,008,149,169,001,141,011,149,169,003,141,018,149,032,179,149
  108. 20003 data   162,001,142,010,149,169,008,141,008,149,169,000,141,011,149,169,012
  109. 20004 data   141,018,149,169,004,141,021,149,169,002,141,022,149,032,179,149,096
  110. 20005 data   172,024,149,200,192,005,144,002,160,000,140,024,149,190,025,149,189
  111. 20006 data   152,007,201,218,208,027,165,143,010,010,056,101,143,133,143,201,040
  112. 20007 data   176,245,201,012,144,004,201,028,144,237,170,153,025,149,169,207,168
  113. 20008 data   200,152,157,152,007,174,021,149,189,001,208,174,010,149,201,049,176
  114. 20009 data   008,169,003,157,000,149,032,133,151,201,217,144,003,032,037,151,189
  115. 20010 data   000,220,041,012,201,008,208,003,032,009,151,201,004,208,003,032,023
  116. 20011 data   151,189,000,220,041,016,208,006,032,196,150,076,042,150,032,241,150
  117. 20012 data   173,030,208,041,010,201,010,208,003,032,037,151,173,012,149,045,008
  118. 20013 data   149,205,008,149,208,008,169,252,157,000,149,032,133,151,254,000,149
  119. 20014 data   189,000,149,174,021,149,125,001,208,157,001,208,157,003,208,174,010
  120. 20015 data   149,189,002,149,201,128,144,012,201,240,176,029,169,240,157,002,149
  121. 20016 data   076,134,150,201,016,144,005,169,016,157,002,149,024,032,171,150,144
  122. 20017 data   015,032,184,150,076,143,150,056,032,171,150,176,003,032,184,150,234
  123. 20018 data   234,234,174,021,149,157,002,208,174,010,149,096,157,192,219,232,224
  124. 20019 data   028,208,248,169,002,076,217,151,000,000,174,021,149,125,000,208,157
  125. 20020 data   000,208,174,010,149,096,168,173,018,149,077,016,208,141,016,208,152
  126. 20021 data   096,189,016,149,240,017,189,000,149,056,233,006,157,000,149,169,000
  127. 20022 data   157,016,149,169,129,141,004,212,169,128,141,004,212,169,224,125,004
  128. 20023 data   149,174,0